Cromemco 

COBOL 

ANSI -74 Standard COBOL 
Features - Complete Level I 
elements of all modules 
required by the Standard 

TABLE HANDLING 

With 

; 

COPY statement to speed development by 
Including your source libraries 


Powerful Level 2 Features 


C O M PU ' f E s i m p I i ties co m putat i o n s by co m b i n i ng 

OPEN EXT END permits you to add records to an 
existing sequential file without first copying all 
pswwcw: n?Q. wcic vv a new wn 
CALL to execute your standard, pre-compiled 
nwnnnen ante a waicae wwnanwnw: 

STRING easily combines several data items into 
one field 

UNSTRING easily separates one data item into 
several nwnw 


Debugging Extensions 

www: wane a a widen 


YOUR LOCAL DEALER IS 


Cromemco COBOL 

Features 

/ 


• Based on American National Standard X3.23-1974 


• Relative, Indexed, and Sequential Files 

ACCESS SEQUENTIAL, RANDOM, or DYNAMIC 

OPEN EXTEND to add records to a sequential file 

READNEXTinDYNAMICACCESS mode 

START to begin reading a sequential file at a specific 

record 

READ, WRITE, REWRITE, DELETE records in a file 


• Types of Data: 
alphanumeric 
report 

external decimal 
internal decimal 
binary 


—character string of ASCII values; 

—up to 30 digits or special editing 
characters; 

—up to 18 digits stored as ASCII, one 
digit per byte; 

—up to 18 digits stored as BCD, two 
digits per byte; 

—two bytes used to store the binary 
value of an integer in the range 
-32768 to 32767; 


• Tables 

3 levels of subscripting (eg: RATE (I, J, K,) ) 

INDEXED BY clause in table definition 
SEARCH a table until a specific condition is true 
SEARCH ALL to search a table using a fast, non-serial 
search method 

Relative Indexing (eg: RATE (I + 3, J— 1) ) 

• Qualification of Identifiers 


• COPY Statement to include a library file of COBOL state- 

ments or routines for compilation 

• CALL and LINKAGE SECTION to execute a subprogram 

• COMPUTE to assign the value of a compound arithmetic 

expression to one or more variables 

• PERFORM VARYING/UNTIL, AFTER/UNTIL to execute 

a subroutine repeatedly until specific conditions are true, 
automatically changing subscript values before each 
execution 

• Powerful Conditional Features: 

Nested IF’s 

AND, OR, NOT in Conditions 
PARENTHESES in Conditions 
SIGN and ZERO test 

Level 88Condition Names with valueseries orvaluerange 
Algebraic Relational Symbols <•=,> 

Implied subject and relation in conditions 

• Debugging verbs EXHIBIT, READY TRACE, RESETTRACE 

• English description of syntax errors 
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Cromemco COBOL Elements 


NOTATION 

< > terms enclosed in “< >” describe operands that 
occupy those positions in actual use. 

[ ] clauses enclosed within brackets are optional. 

Brackets may be nested. 

{ } braces surrounding a list of terms separated by the 

vertical bar'T’indicate that oneof theterms MUST 
be used. Braces surrounding a clause indicate that 
the clause may be treated as a unit when followed 
by the ellipsis (...). Braces may be nested. 

the ellipsis indicates thatthe previous item orclause 
may be repeated an indefinite number of times. 

BOLDFACE — words in boldface are required in the 
clause 

UPPER CASE — words in upper case are optional “noise 
words’’. 


lower case — words in lower case represent generic terms 
for which the user must substitute valid entries. 


COBOL PROGRAM STRUCTURE 


IDENTIFICATION DIVISION. 


PROGRAM-ID. 

[AUTHOR. 

[INSTALLATION. 

[DATE -WRITTEN. 

[DATE-COMPILED. 

[SECURITY. 


program — name, 
comment — entry . . .] 
comment — entry . . .] 
comment — entry . . .] 
comment— entry . . .] 
comment — entry . . .] 


ENVIRONMENT DIVISION. 
[CONFIGURATION SECTION. 
[SOURCE-COMPUTER, entry ] 
[OBJECT-COMPUTER, entry ] 
[SPECIAL-NAMES. entry 1 ] 

[ INPUT-OUTPUT SECTION. 
FILE-CONTROL. entry . 

[ I — O — CONTROL. entry...] ] 

DATA DIVISION. 

[FILE-SECTION. 

[file description entry 
record description entry . . . ] . . . ] 

[WORKING-STORAGE SECTION. 

[data item description entry . . . ] . . . ] 

[LINKAGE SECTION. 

[data item description entry . . . ] . . . ] 


PROCEDURE DIVISION [USING identifier . . . ]. 
[DECLARATIVES. 

{section — name SECTION. USE Sentence. 

[ paragraph — name, [sentence] . . . ] ...}... 

END DECLARATIVES.] 

{ [ section — name SECTION. ] 

[ paragraph — name, [sentence] . . . ] ...}... 


FILE — CONTROL Details 

SEQUENTIAL FILES: 

SELECT file-name ASSIGN [DISK | PRINTER} 

[ RESERVE integer AREAS ] 

[FILE STATUS IS data-name ] 

[ACCESS MODE IS SEQUENTIAL ] 
[ORGANIZATION IS SEQUENTIAL ]. 

INDEXED AND RELATIVE FILES: 

SELECT file-name ASSIGN DISK 

[ RESERVE integer AREAS ] 

[FILE STATUS IS data-name ] 

ORGANIZATION IS { INDEXED | RELATIVE} 
ACCESS MODE IS {SEQUENTIAL | 

RANDOM | 

DYNAMIC } 

{ RECORD | RELATIVE} KEY ISdata-name. 


Data Item Description Details 

level — number (data-name I FILLER} 

[REDEFINES data-name ] 

PICTURE size — and — editing- 
character— string 

[BLANK WHEN ZERO ] 

[JUSTIFIED RIGHT ] 

[ OCCURS integer TIMES 
[INDEXED BY index — name ] 
[{ASCENDING | DESCENDING} 
KEY IS data — name ] ] 

[SIGN IS {TRAILING | LEADING } 
[SEPARATE CHARACTER ] J 
[USAGE IS {COMPUTATIONAL | 
INDEX | 

COMPUTATIONAL — 3 i 
DISPLAY} ] 

[VALUE IS literal ]. 


Conditions 

Simple Conditions: 

Relational test: 

operand [NOT] <relation> operand 
Class test: 

data-name is[NOT] (NUMERIC I 

ALPHABETIC} 

Sign test: 

data-name is[NOT] (NEGATIVE | 

ZERO | 

POSITIVE} 

Condition — name test: 

<level — 88DataDivision entry> 

Compound Conditions: 

<simple condition> I (AND I OR} 

<simple condition> ] . . . 


PROCEDURE DIVISION 
STATEMENTS 

ACCEPT data — name. 

ADD {<numeric — item> | literal}... 

{TO | GIVING} data — name 

[ROUNDED] 

[ON SIZE ERROR <statements>]. 

ALTER paragraph TO PROCEED TO procedure — name. 
CLOSE file-name [WITH LOCK] .. . . 

COMPUTE data-name [ROUNDED] ... = 

{<numeric — item> | literal | 

<compound arithmetic expression>} 

[ON SIZE ERROR <statements>]. 

COPY source — code — file — name. 

DISPLAY {data — name | literal}... . 

DIVIDE {<numeric — item> | literal } {BY | INTO} 
{<numeric — item> | literal} 

[GIVING data-name] [ROUNDED ] 

[ON SIZE ERROR <statements>]. 

EXIT. 

GOTO procedure — name . . . [ DEPENDING ON 

data — name]. 

IF <condition> <statements> 

[ELSE <statements>]. 

INSPECT data-name 
[TALLYING data-name FOR 

{CHARACTERS | 

{ALL 1 LEADING} <1 -char- item>} 

[{BEFORE | AFTER} 

INITIAL <1 — char — item> ] ] 

[REPLACING {CHARACTERS | 

{ALL | LEADING | FIRST} <1 -char- item>} 
[{BEFORE | AFTER} INITIAL <1 -char- item> ] ] 
MOVE {data-name | literal } TO data — name .. . . 

MULTIPLY {<numeric— item> | literal} 

BY {<numeric— item> | literal } 

[GIVING data-name] IROUNDED ] 

[ON SIZE ERROR <statements>|. 

OPEN {INPUT | 1-0 | OUTPUT | EXTEND} 

file — name ... . 

PERFORM <range> [<numeric operand> TIMES]. 
PERFORM <range> [VARYING data — name FROM 

amount BY amount] 

UNTIL <condition>. 

READ file — name [INTO data — name]. 

REWRITE record — name [FROM data-name]. 

STOP {RUN | literal}. 

STRING { <alpha-operand> . . . DELIMITED BY 
{ <alpha-operand> | SIZE} } . . . 

INTO data-name [WITH POINTER data — name] 
[ON OVERFLOW <statement>]. 

SUBTRACT {<numeric — item> | literal j ...FROM 
{<numeric — item> | literal } 

[GIVING data — namel [ROUNDED ] 

[ON SIZE ERROR <statements>]. 

UNSTRING data-name 

[DELIMITED BY [ALL] <1-char-item> 

[OR [ALL] <1-char-item>] ... ] 

INTO 

{data-name [DELIMITER IN data-name] 

[COUNT IN data — name] } ... 
[WITH POINTER data-name] 

[TALLYING IN data-name] 

[ON OVERFLOW <statement>]. 

WRITE record — name [FROM data — name] 

[{BEFORE | AFTER} ADVANCING 

[{<numeric — item> | literal}] {LINES | PAGE}]. 


DEBUGGING STATEMENTS 

EXHIBIT {literal | data-name}. 

READY TRACE. 

RESET TRACE. 


INTER-PROGRAM 

COMMUNICATION 

In Calling Program: 

CALL “<program name>” USING data-name . . . 
In Called Program: 


LINKAGE SECTION. 

data — name — description . . . 


PROCEDURE DIVISION USING data-name 


EXIT PROGRAM. 


TABLE HANDLING 

SEARCH table 

[VARYING {identifier | index — name}] 

[AT END <statement>] 

{WHEN <condition> 

{NEXT SENTENCE | <statement>} }. . . 

SEARCH ALL table 

[AT END <statements>] 

WHEN <simple condition> {NEXT SENTENCE | 

<statements>}. 

(Note: table must have ASCENDING or DESCENDING 
KEY clause) 

SET {index — name | index — item | data-name }. . . 
TO {index — name | index — item | data-name | 
integer}. 

SET index-name ... {UP | DOWN} BY 

{integer | data-name}. 


INDEXED AND RELATIVE FILES 

DELETE file-name RECORD 

[INVALID KEY <statements>]. 

Read Sequential: 

READ file — name [NEXT] [INTO data — name] 

[AT END <statements>]. 

Read Random or Dynamic: 

READ file — name [INTO data — name] 

[KEY IS data-name] 

[INVALID KEY <statements>]. 

REWRITE record — name [FROM data — name] 
[INVALID KEY <statements>]. 

START file-name [KEY IS {GREATER | NOT LESS | 

EQUAL} data-name] 

[INVALID KEY <statements>]. 

WRITE record — name [FROM data — name] 

[INVALID KEY <statements>]. 


I/O VERBS PERMITTED WITH INDEXED FILES 


PROCEDURE 

©PEE 7©!DE iE EFFECT 

ACCESS MODE 
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Cromemco I6K 


ASCII 

DEC 

Character Codes 

CHAR DEC CHAR 

DEC 

CHAR 

000 

CTRL-@ 

043 

+ 

086 

V 
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CTRL-A 
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t 
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W 
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CTRL 

= Control Character 

BS — Backspace 


CR = 

Carriage Return 

FF = Form 

Feed DEL 

= Rubout 


Cromemco I6K Basic Features 


Extended Basic 


• Semi-compiling design — combines the best 
features of both interpreters and compilers — yields 
exceptionally fast execution times 

• Allows 3 types of variables: 

* integer (2 bytes) range +32767 to -32768 

* short floating point (4 bytes) range 
±9.99E+62to ±9.99E-65 

* long floating point (8 bytes) range 
± 9.99E + 62 to ± 9.99E-65 


• 14 digit accuracy 

• Advanced floppy disk I/O capabilities 

• Binary and ASCII storage for both prog rams and data 

• Sequential and random access files 

• English language error messages 

• Syntax error checking as program is entered 

• Dynamic error trapping 

• TRACE and immediate mode to facil itate debugging 

• Advanced string handling capabilities 

• Advanced output formatting capabilities 

• Chaining of programs 

• Direct machine language interaction 
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Instruction Set 



/ 



Cromemco I6K 


ic Instructions 


* 


t 


* 


t 


t* 

t 


Abbreviations: 


A, B, C, D 

variables | 

FOR A= E TO F [STEP G] 

.NEXT A 

m, n, p, r 

integers 

FRActional part CE) 

E, F, G, H 

expressions or variables 

FREe space CE) 

LI, L2 

CH may be relational) 
line numbers 

GET\fn[,p1 [,p2] ] \ [E, F . . .] 

stmnt 

statement 

GOTO LI 

strng 

string expression J 

rGOSUB LI 
[RETURN 

IF H THEN {LI} {stmnt} 

1 1 

{ i 

optional parameter ' 

choose one parameter 

. . . 

may be repeated 

IMODE 

fn 

file number 

INPUT [{\fn, pi , p2\} {strng}] A[,B . . .] [;] 

pi, p2 

parameters 

INTEGER A [ Cm)] [, B . . .] 

s 

one letter 

INTeger CE) 

* 

do not use with line no. 

INP Cm) 

** 

use only with line no, 

lOSTATCfn, m) 

t 

disk basic only 

IRN CE) integer random number generator 

byte 

fmt 

byte value j 

format 

LENgth CA$) 

dr: 

drive: 

[LET] A = E 

LFMODE 

ABSolute value CE) 

LIST [strng,] [L1[,L2] ] 

LONG A [Cm)] ] ,B . . .] 

LOGarithm CE) 


ASCii (A$) 

ATN(E) arctangent 
AUTOLine LI, L2 


t LOADstrng 

MAXimum CE) 
t MAT A = E 


BINAND [A, B) 

BINOR (A, B) 

BINXOR (A, B) 

BYE 

CHR$ [A] ASCI I character 
CLOSE [\fn\] 

CONtinue 
COSine CE) 

CREATE strng 

DATA [A] [strng] [,b . . . ] 

DEGree 
DELETE LI, L2 
DEFFNs [A] = E 
DIM A Cm) [, B[n,p, 0 . . .] 
DIRectory [dr:] [strng] 
DiSK [dr:] 


MINimum CE) 

NOECHO 

NOESCape 

NoTRACE 

ON E {GOT 0} {GOSUB} LI 
ON ERROR {STOP} {GOTO} {GOSUB} LI 
ON ESCape {STOP} {GOTO} {GOSUB} LI 
OPEN \fn [,p1 [, p2] ] \ strng 
OUT m, byte 

PEEK Cm) 

POSition [A$, Y$, n) 

POKE m, byte 

{PRINT} {@} [\fn, pi , p2\ ] [USINGfmt] [E [ {,} {;} F . . .] ] 
PUT\fn [, p 1 [,p2] ] \[E, F . . .] 

RADians 


ECHO 
** END 

ENTER strng 
t ERASE strng 
ESCape 
EXPonent CE) 


RANDOMIZE 
READ A [,B . . .] 

REM [anything you want] 

RESTORE 
* RENUMBER 

t RENAME strng-old, strng-new 


RND [E) random number generator values 
RUN [strng] 

t SAVE strng 
SCRatch 

SET m,A 
SFMODE 

SGN CE) algebraic sign 
SHORT A [Cm)] [,&...] 

SINe CE) 

SPaCe CE) use with PRINT 
SQR CE) square root 
** STOP 

STR$ Cn) string 
SYStem CE) 

TANgent CE) 

TAB CE) use with PRINT 

TRACE 

USeR CA, pi [,p2 . . .] ) 

VALue CA$) 


Hexadecimal — Decimal Conversion Table 


HEXADECIMAL COLUMNS 

4 

3 

2 

1 

HEX = DEC 

HEX 

= DEC 

HEX 

= DEC 

HEX 

= DEC 

0 

0 

0 

0 

0 

0 

0 

0 

1 

4,096 

1 

256 

1 

16 

1 

1 

2 

8,192 

2 

512 

2 

32 

2 

2 

3 

12,288 

3 

768 

3 

48 

3 

3 

4 

16,384 

4 

1,024 

4 

64 

4 

4 
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20,480 

5 

1 ,280 

5 

80 

5 

5 

6 

24,576 

6 

1 ,536 

6 

96 

6 

6 

7 

28,672 

7 

1,792 

7 

112 

7 

7 

8 

32,768 

8 

2,048 

8 

128 

8 

8 
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